home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / cprog.EXE / KARETOPL.C < prev    next >
Encoding:
Text File  |  1996-07-05  |  1.3 KB  |  53 lines
  1.  int toplam;             /* Global degisken tanimlaniyor */
  2.  
  3. main()
  4. {
  5. int index;
  6.  
  7.    baslik();  /* Baslik isimli fonksiyonu cagirir */
  8.  
  9.    for (index = 1;index <= 7;index++)
  10.      kare(index);    /* Bu, kare fonksiyonunu cagirir.  */
  11.  
  12.    bitis();   /* Bu da, bitis isimli fonksiyonu cagirir */
  13. }
  14.  
  15.  
  16. baslik()     /***** baslik fonksiyonu basliyor *****/ 
  17. {
  18.    toplam = 0;          /* "Toplam" isimli degiskene 0 
  19.                            degeri atanir.. */
  20.  
  21.    printf("Bu, kare programinin basligidir\n\n");
  22. }
  23.  
  24. kare(rakam)   /*** Bu, kare fonksiyonunun baslangicidir ***/
  25. int rakam;
  26. {
  27. int karesi;             /* Yerel degisken tanimlaniyor */
  28.  
  29.    karesi = rakam * rakam;  /* Karesini olusturuyor. */
  30.    toplam += karesi;        /* toplama ekleniyor */
  31.    printf("%d nin karesi %d dir.\n",rakam,karesi);
  32. }
  33.  
  34. bitis()       /***** Bitis fonksiyonu tanimlaniyor.  *****/
  35. {
  36.    printf("\nKarelerin toplami: %d dir..\n",toplam);
  37. }
  38.  
  39.  
  40.       (Bu programin ciktisi, soyle gorunur:)
  41.  
  42.       Bu, kare programinin basligidir
  43.  
  44.       1 nin karesi 1 dir.
  45.       2 nin karesi 4 dir.
  46.       3 nin karesi 9 dir.
  47.       4 nin karesi 16 dir.
  48.       5 nin karesi 25 dir.
  49.       6 nin karesi 36 dir.
  50.       7 nin karesi 49 dir.
  51.  
  52.       Karelerin toplami: 140 dir..
  53.